10 REM ***********************
12 REM * RANDOM FILE EXAMPLE *
14 REM ***********************
16 DIMI$(664):FD=0:FX=5:CH=2:FP=1
18 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
20 PRINT"  INSERT DATA SHEET"
22 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
24 PRINT"    START PRESS 'S'"
26 GETP$:IFP$<>"S"THEN26
28 OPEN15,8,15,"I0":OPEN2,8,2,"#"
30 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
32 PRINT"INDEX FILE OPERATION"
34 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
36 INPUT"     NEW SHEET? N[157][157][157]";O$:PRINT""
38 IFO$="N"THEN46
40 IFO$<>"Y"THEN36
42 PRINT:PRINT"    WAIT!":FORI=1TO664
44 PRINT"    [157][157][157][157][157]"I;:I$(I)="/"
45 PRINTI$(I):NEXT:GOTO50
46 OPEN5,8,5,"0:INDEX,S,R"
47 FORI=1TO664:INPUT#5,I$(I)
48 PRINT I;" ";I$(I)
49 NEXTI:CLOSE5
50 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
52 PRINT"     JOB MENU        "
54 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
56 PRINT
58 PRINT"     1=CREATE"
60 PRINT"     2=DELETE"
62 PRINT"     3=SEARCH"
64 PRINT"     0=END"
65 PRINT
66 INPUT"1 , 2 , 3 , 0   1[157][157][157]";O$
68 IFO$="0"THENCLOSE15:CLOSE5:CLOSE2:      GOTO63000
70 IFO$="1"THEN104
72 IF O$="3" THEN 8000
74 IFO$<>"2"THEN50
76 GOTO200
100 REM ***********************
102 REM * MASTER FILE CREATE  *
103 REM ***********************
104 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
105 PRINT" [160]MASTER FILE CREATE"
106 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]"
107 INPUT"RECORD NO. = 0[157][157][157]";F
109 IF F=0THEN170
110 INPUT"NAME     =.[157][157][157]";FB$(1)
120 INPUT"ADDRESS  =.[157][157][157]";FB$(2)
130 INPUT"ZIP      =.[157][157][157]";FB$(3)
132 INPUT"TEL      =.[157][157][157]";FB$(4)
134 INPUT"COMMENT  =.[157][157][157]";FB$(5)
140 GOSUB5200
150 I$(F)=FB$(1)
160 GOTO104
170 OPEN5,8,5,"@0:INDEX,S,W"
175 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
180 PRINT I;" ";I$(I)
185 NEXT:CLOSE5
190 GOTO74
200 REM ***********************
201 REM *  MASTER FILE DELETE *
202 REM ***********************
210 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
212 PRINT"  MASTER FILE DELETE"
214 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT
220 INPUT"RECORD NO. = 0[157][157][157]";F
230 IFF=0THEN260
235 IFI$(F)<>"1"THEN220
240 I$(F)="/":PRINT"RECORD NO."F;"DELETE"
250 GOTO220
260 OPEN5,8,5,"@0:INDEX,S,W"
265 FORI=1TO664:PRINT#5,I$(I);CHR$(13);
270 PRINT I;" ";I$(I)
275 NEXT:CLOSE5
280 GOTO50
300 REM ***********************
301 REM *  FILE SEARCH        *
302 REM ***********************
310 PRINT"[147][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
312 PRINT"       SEARCH       "
314 PRINT"[196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196][196]":PRINT
320 INPUT"RECORD NO. = 0[157][157][157]";F
321 IFF=0THEN50
322 IF I$(F)="/" THEN GOTO 320
325 GOSUB5100
360 PRINT"NAME  [160][160] = ";FB$(1)
370 PRINT"ADDRESS  = ";FB$(2)
380 PRINT"ZIP   [160][160] = ";FB$(3)
382 PRINT"TEL   [160][160] = ";FB$(4)
383 PRINT"COMMENT[160] = ";FB$(5)
385 PRINT"---------------------"
390 GOTO320
5100 REM ***********************
5105 REM * FDD BLOCK READ      *
5108 REM ***********************
5110 GOSUB5330
5120 PRINT#15,"U1:";CH;FD;FT;FS
5130 PRINT#15,"B-P:";CH;FP
5140 GOSUB5270
5150 FORFI=1TOFX
5160 INPUT#CH,FB$(FI):
5180 NEXT
5190 RETURN
5200 REM ***********************
5201 REM * FDD BLOCK WRITE     *
5202 REM ***********************
5210 GOSUB5330
5220 PRINT#15,"B-P:";CH;FP
5230 FORFI=1TOFX:PRINT#CH,FB$(FI);CHR$(13);:NEXT
5240 PRINT#15,"U2:";CH;FD;FT;FS
5250 GOSUB5270
5260 RETURN
5270 REM ***********************
5275 REM *  ERROR CHECK        *
5278 REM ***********************
5280 INPUT#15,EN,EM$,ET,ES
5290 IFEN=0THENRETURN
5300 PRINT"ERROR STATUS:";EN;EM$;ET;ES
5310 INPUT"CONTINUE?";Y$:IFY$="Y"THENRETURN
5320 STOP
5322 REM ***********************
5324 REM * SET TRACK & SECTOR  *
5326 REM ***********************
5330 IFF<358THENF1=0:F2=22:F3=1:GOTO5370
5340 IFF>357ANDF<472THENF1=357:F2=20:F3=19:GOTO5370
5350 IFF>471ANDF<580THENF1=471:F2=19:F3=25:GOTO5370
5360 IFF>579THENF1=579:F2=18:F3=31
5370 FT=INT(((F-F1)-1)/(F2-1))+F3
5380 FS=F-F1-(FT-F3)*F2+(FT-F3-1)
5390 RETURN
8000 PRINT"[147]"
8005 INPUT "LAST NAME/FIRST";AN$
8010 NA=LEN(AN$)
8020 FOR L=1TO664
8025 N1$=I$(L)
8030 N2$=LEFT$(N1$,NA)
8045 IF AN$=N2$THEN PRINT "FILE#=";L;"NAME=";N1$
8046 NEXT
8050 INPUT "ANOTHER NAME Y/N";II$
8060 IF II$="Y"GOTO8005
8070 GOTO 300
63000 PRINT"[147]LOAD"CHR$(34)"PAYLOAD"CHR$(34)",8":PRINT"RUN"
63010 POKE631,13:POKE632,13:POKE198,2:        END